﻿' Copyright © Microsoft Corporation.  All Rights Reserved.
' This code released under the terms of the 
' Microsoft Public License (MS-PL, http://opensource.org/licenses/ms-pl.html.)

Public Class ThisAddIn
    Private _taskPane As Microsoft.Office.Tools.CustomTaskPane

    Private Sub ThisAddIn_Startup( _
    ByVal sender As Object, _
    ByVal e As System.EventArgs) _
    Handles Me.Startup

        _taskPane = Me.CustomTaskPanes.Add( _
           New SimpleControl(), "Contoso")
        _taskPane.Visible = True

    End Sub


    Private Sub ThisAddIn_Shutdown() Handles Me.Shutdown

    End Sub

End Class
